﻿''' <summary>
''' 游戏设定
''' </summary>
Public Class GameSetting

    'Public Rule As GameRule

    Property Fag As Boolean

    Property Weather As Weather = 0

    'Property Land As MapType

    Property Funds As Integer
        Get
            Return mFunds
        End Get
        Set(ByVal value As Integer)
            Select Case value
                Case Is < 500
                    mFunds = 500
                Case Is > 9500
                    mFunds = 9500
                Case Else
                    mFunds = Int(value / 500) * 500
            End Select
        End Set
    End Property
    Private mFunds As Integer = 1000

    Property Capt As Byte
        Get
            Return mCapt
        End Get
        Set(ByVal value As Byte)
            If value >= 12 AndAlso value <= 28 Then
                mCapt = value
            Else
                mCapt = 0
            End If
        End Set
    End Property
    Private mCapt As Byte

    Property Power As Boolean = True

End Class
